home *** CD-ROM | disk | FTP | other *** search
/ IRIX Base Documentation 2001 May / SGI IRIX Base Documentation 2001 May.iso / usr / share / catman / p_man / cat3 / ftn / sign.z / sign
Encoding:
Text File  |  1998-10-30  |  3.4 KB  |  67 lines
  1.  
  2.  
  3.  
  4. SSSSIIIIGGGGNNNN((((3333FFFF))))                                                              SSSSIIIIGGGGNNNN((((3333FFFF))))
  5.  
  6.  
  7.  
  8. NNNNAAAAMMMMEEEE
  9.      sign, isign, iisign, jisign, dsign, qsign - FORTRAN transfer-of-sign
  10.      intrinsic function
  11.  
  12. SSSSYYYYNNNNOOOOPPPPSSSSIIIISSSS
  13.      iiiinnnntttteeeeggggeeeerrrr iiii,,,, jjjj,,,, kkkk
  14.      iiiinnnntttteeeeggggeeeerrrr****2222 iiiiiiii1111,,,, iiiiiiii2222,,,, iiiiiiii3333
  15.      iiiinnnntttteeeeggggeeeerrrr****4444 jjjjiiii1111,,,, jjjjiiii2222,,,, jjjjiiii3333
  16.      rrrreeeeaaaallll rrrr1111,,,, rrrr2222,,,, rrrr3333
  17.      ddddoooouuuubbbblllleeee pppprrrreeeecccciiiissssiiiioooonnnn ddddpppp1111,,,, ddddpppp2222,,,, ddddpppp3333
  18.      rrrreeeeaaaallll****11116666 qqqqpppp1111,,,, qqqqpppp2222,,,, qqqqpppp3333
  19.  
  20.      kkkk ==== iiiissssiiiiggggnnnn((((iiii,,,, jjjj))))
  21.      kkkk ==== ssssiiiiggggnnnn((((iiii,,,, jjjj))))
  22.  
  23.      iiiiiiii3333 ==== iiiiiiiissssiiiiggggnnnn((((iiiiiiii1111,,,, iiiiiiii2222))))
  24.      iiiiiiii3333 ==== ssssiiiiggggnnnn((((iiiiiiii1111,,,, iiiiiiii2222))))
  25.  
  26.      jjjjiiii3333 ==== jjjjiiiissssiiiiggggnnnn((((jjjjiiii1111,,,, jjjjiiii2222))))
  27.      jjjjiiii3333 ==== ssssiiiiggggnnnn((((jjjjiiii1111,,,, jjjjiiii2222))))
  28.  
  29.      rrrr3333 ==== ssssiiiiggggnnnn((((rrrr1111,,,, rrrr2222))))
  30.  
  31.      ddddpppp3333 ==== ddddssssiiiiggggnnnn((((ddddpppp1111,,,, ddddpppp2222))))
  32.      ddddpppp3333 ==== ssssiiiiggggnnnn((((ddddpppp1111,,,, ddddpppp2222))))
  33.  
  34.      qqqqpppp3333 ==== qqqqssssiiiiggggnnnn((((qqqqpppp1111,,,, qqqqpppp2222))))
  35.      qqqqpppp3333 ==== ssssiiiiggggnnnn((((qqqqpppp1111,,,, qqqqpppp2222))))
  36.  
  37. DDDDEEEESSSSCCCCRRRRIIIIPPPPTTTTIIIIOOOONNNN
  38.      _i_s_i_g_n returns the magnitude of its first argument with the sign of its
  39.      second argument.  It accepts either integer*2 or integer*4 arguments and
  40.      the result is the same type.  _i_i_s_i_g_n and _j_i_s_i_g_n take integer*2 and
  41.      integer*4 arguments, respectively.  _s_i_g_n, _d_s_i_g_n, and _q_s_i_g_n are _i_s_i_g_n's
  42.      real, double-precision, and real*16 counterparts, respectively.  If the
  43.      value of the first argument of _i_s_i_g_n, _s_i_g_n, _d_s_i_g_n, or _q_s_i_g_n is zero, the
  44.      result is zero.  The generic version is _s_i_g_n and will devolve to the
  45.      appropriate type depending on its arguments.
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.                                                                         PPPPaaaaggggeeee 1111
  64.  
  65.  
  66.  
  67.